EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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LLLLLLLLLLLLLLL | 
| 
| 
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LL 111111 BBBBBBBB cccccccc «CVV VV TTTTTTTTTT MM MM AAAMAA cccccccc 

LL HII! BB ceccccce «(WV VV TTTTTTTTTT MM MM ARAANA cccccccc 

LL I] BB BB CC VV VV TT MMMM MMMM AA AA CC 

LL I] BB BB CC VV VV TT MMMM MMMM AA AA CC 

LL I] BB BB CC VV VV TT MM MM MM AA AA CC 

LL II BB BB CC VV VV TT MM MM MM AA AA CC 

LL I] BBBBBBBB cc VV VV TT MM AA AA CC 

LL I] BBBBBBBB cc VV VV TT MM MM AA AA CC 

LL I] BB BB CC VV VV TT MM MM AAAAAAAAAA CC 

LL I] BB BB CC VV VV TT MM MM AAAAAAAAAA CC 

LL I] BB BB CC VV oVV TT MM MM AA AA CC cece 
LL I] BB BB CC vv TT MM MM AA AA CC cece 
LLLLLLLLLL III] BBBBBBBB cccccccc VV TT MM MM AA AK cccccccc cece 
LLLLLLLLLL III] BBBBBBBB ccccccce VV TT MM MM AA AA ccccccce cous 
LL IIIII] SSSSSSSS 

LL 1111 SSSSSSSS 

LL I] SS 

LL II $$ 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LELLLLLLLL HII! SSSSSSSS 
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«TITLE LIBRE Y TRAC MACRO-32 fue ort for LIBSCVT_DX_Dx 

-IDENT /1-005/ ; File: LIBCVTMAC.MAR EDIT: ~PDG1005 


—BPARRAARARAARBASLALASALAALEAARASALASASESALAL ASSES AEE R ASAE SESS ESSERE REE ES RRS AS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH T SOF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
hy a ad NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
se eokat lhe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


tARRRARAAARAAAAAALASLAAAAALASALSEAEEAS AAS SA REAR E SARE R ARRAS RESALE ASAE RASS ASSES SY 


+ 
FACILITY: Run-time Library. 


ABSTRACT: 
This module contains the MACRO-32 support routines for LIBSCVT_DX_DXx 


routine. ALL of the entry points are JSB entry points. 


ENVIRONMENT: 


Some entry points require the Caller to have LIBSEMULATE or the 
machine have the full instruction set of VAX-11 architecture 


Note that this module is for specific support of LIBSCVT_DX_Dx routine, 


hence it has no RTL ‘'globally defined’’ antes point therefore this 
module assumes that the caller has IV, FU, D 


THOR 


MODIFIED BY: 
VERSION: 1 


100 
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MINUTES BB BEE BWW inonornononononononony 3 2 


Sete Se Se Se Ge Ge Ge Ge Ge Ge te Ge Ge Ge Ge Ge Ge Ge Ge Gee Ge Ge Ge Ge Ge Ge Ge Ge 


Original. 


01 
1 8 Fix LIBSSCVT_CVTRHQ_R1 to round correctly. FM 1-Mar-83 
1004 Fix the bug that a zero integer to float does not look for a zero 


value. FM 


F 
1005 Fix bug in 
POG 10-Jul- 


15-Jan- 
LABTOCEs CHIANG A in code avoiding integer overflow. 


its in PSW turned on. 


AUTHORS : FAROKH MORSHED, PETER GILBERT 7-FEB-81, VERSION 1, VMS V3.0. 


Make references to LIBSSIGNAL General mode addressing. FM 30-OCT-81. 
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: EXTERNAL ROUTINES 
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LIBSCVTMAC MACRO=32 support for LIBSCVT_DX_DX 15-SEP-1984 50:2 AX/VMS Macro Y04-00 Page 
eittg Tiesscut even, AI arSEEm18ke Fiidasee YONGNTS eReseibcurmac.mars1 2% (8) 
0 106 -SBTTL LIBSSCVT_CVTLH_R1 
148 ;+ 
128 ; FUNCTIONAL DESCRIPTION: 
139 : Convert LONGWORD to H_FLOATING. 
00 136 ; 
00 153 ; CALLING SEQUENCE: 
00 154 ; LIBSSCVT_CVTLH_R1 ( Long. rl. r, hfloat.wh.r ) 
000 155 ; This is & JSB @ntry point 
000 138 3 
B88 197 3 
00 158 ; FORMAL PARAMETERS: 
000 159 ; RO ==> Long R1 ==> hfloat 
0008 160; 
0008 161; 
0008 16¢ 3; IMPLICIT INPUTS: 
0008 163; NONE 
0008 164; 
0008 165; 
0008 166 ; IMPLICIT OUTPUTS: 
0008 167; NONE 
0008 168; 
0008 169; 
0008 170 ; COMPLETION CODES: 
0008 171; NONE 
0008 We 3 
0008 173 : SIDE EFFECTS: ; 
S44 ie $ OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
0008 176 ;-- 
0008 177 
0008 178 LIBSSCVT_CVTLH_R1 :: 
61 60 6EFD 0008 179 TVTLH ~ (RO), (R1) :Convert LONGWORD to H_FLOATING 
> O05 18s ” 


M15 
IBSCVTMAC MACRO-32 support for LIBSCVT_DX_Dx 15-SEP-1984 23:50:26 VAX/VMS Macro V04-00 P 
eth LIBSSCVT_CVTROUF_Ri “vne 5neeei obs Tso see LO TEN TS eee tl free ss Powe 
it } ; -SBTTL LIBSSCVT_CVTROUF_R1 
290 185 ;++ 
D 1 § 3; FUNCTIONAL DESCRIPTION: 
3 } ; Convert unsigned OCTAWORD to FLOAT. 
OD 1 § 3 
000D 190 ; CALLING SEQUENCE: 
OOD 191; LIBSSCVT_CVTROUF_R1 ( octa.ro.r, float.wf.r ) 
00D 135 3 This is @ JSB entry point. 
00D 193; 
4 194 ; 
tit4 132 ; FORMAL PARAMETERS: ak os ‘Shee 
3 --> octa “= oa 
000D 197; 
44 198 ; 
00D 199 ; IMPLICIT INPUTS: 
000D 00 ; NONE 
000D 01 ; 
000D 8 3 
000D 03 ; IMPLICIT OUTPUTS: 
000D 04 ; NONE 
000D $2 3 
000D 06 ; 
000D 207 ; COMPLETION CODES: 
000D 08 ; NONE 
000D 09 ; 
000D 10 ; SIDE EFFECTS: 
i444 \} 3 OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
000D i j= 
000D 214 
000D $12 3 
000D 16 $ DEFINE SOME CONSTANTS 
000D $! : 
00000011 000D 218 FOUMMY: .BLKL 1 
00007080 0011 $i -F FLOATING 19728 160315068337 399545950336 322296 
00006080 0015 20 -F-FLOATING 18446744073709551616 32464 
00005080 0019 21 F32: ~F_-FLOATING 4294967296 pee252 
00004080 op8 $6 »F FLOATING 1 : 
0021 Se s FIND THE FLOATING ATOMIC DATA TYPE BY MULTIPLYING EACH LONGWORD 
00 ' $3 OF OCTAWORD BY AN APPROPRIATE CONSTANT. 
$0 1 § LIBSSCVT_CVTROUF_R1 :: 
OF BB 0021 8 PUSHR #*M<RO,R1,R2,R3> 
61 D4& 0023 9 CLRF (R1) sInitialize destination. 
2g 04 00 0025 0 MOVL #4, R2 :Set up the loop counter for 4 times 
53 60) «64E «4600028 )«=6231 10S: += CVTLF =e (RO), RB :Convert the next LONGWORD to floating 
36 14 : 8 § BGTR 13$ This longword is positive 
. 3 a D BEQL 138 sIf zero, then just skip it 
53 E7 AF 40 F 4 ADDF F32, R3 sNegative. so add the difference 
53 D6 AF4 44 3 5 13$ MULF puna 823. R3 Mu tiply the result by the constant 
61 : 40 8 § ADDF R3, (R1) Add in the result to destination 
97 0038 15$ DECB Re One less time to go around in the loop 
o 13 003D 8 BEQL 208 sFinished if counter is zero 
0 D5 0035F 39 TSTL (RO)+ Next Longword of OCTA 


wict 
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(80) a38 it zero ? 
133 Yes, so ignore it 
;Lcop to chomp some more on the OCTA 


#°M<RO,R1,RZ,R3> 
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.SBTTL LIBSS$CVT_CVTROUD_R1 
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p++ 

; FUNCTIONAL DESCRIPTION: 

Convert unsigned OCTAWORD to D_FLOATING. 
NCE: 
T_CVTROUD_R1 ( octa.ro.r, dfloat.wd.r ) 
JSB entry point. 


FORMAL PARAMETERS: 
RO ==> octa R1 ==> dfloat 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


: DEFINE SOME CONSTANTS 


00000052 004A 
00000000 00007080 0052 
00000000 00006080 005A 
00000000 000050860 0062 
00000000 00004080 006A 


543950336 8 ;2%#96 
D32: 


SDOOOO0O0O0 OOOO OO 00000 09 09 09 69 69 09 09 09 SII NS NSN SN NAPS AAA AAA OA MMIII 
WO OONAUES WN OO OONAU EWN $ O OD NOAUE WRI SG ODNAUES WR O ODNAUES WN —OUOOon 


WIAIANIPINPIPIPIPSPINYINININNINYINIAIPNINININIANIPONIPUNIPUNIPOPOPONIPULREPONINUNY 


007 3 
007 : FIND THE FLOATING ATOMIC DATA TYPE BY MULTIPLYING EACH LONGWORD 
Bao ; OF OCTAWORD BY AN APPROPRIATE CONSTANT. 
607 LIBSSCVT_CVTROUD_R1 :: 
1F BB 072 : PUSHR #*M<RO,R1,R2,R3,R4> 
61 C 0074 CLRD (R1) Initialize destination s 
26 4 p00 0076 MOVL #4, R2 Set up the loop counter for 4 times 
5 80 6— 0079 10$: CVTLD (RO), RB sConvert the next LONGWORD to floating 
6 14 007C BGTR 132 This longword is pos iy ive 
ee | 443 BEQL 15$ s1f zero, then just skip it 
53 DF AF 60 00 ADDD D32, R3 zNegative, so add the difference 
53 «(C2 arog 64 0084 13$: MULD DDUMMYCR2], R3 ;Mu tiply the result by the constant 
61 5 §0 9 ADDD R3, (R1) zAdd in the result to destination 
§ C 15$: DECB R ;One iess time to go around in the loop 
0 13 ; BEQL 208 Finished if counter is zero 
80 D5 009 TSTL (RO)+ ‘Next lLongword of OCTA 


” 250: VMS Macro v04-00 Page ; 
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+ bas tiSsscus_eveRoUs a ares 
: nore 
fe i 3 geal 188 pe to chene some more on the OCTA 
9 

z, a38 a7 “es POPR #*M<RO,R1,R2,R3,R4> 
= Be 00 09 RSB 
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p++ 
; FUNCTIONAL DESCRIPTION: 
Convert unsigned OCTAWORD to G_FLOATING 


CALLING SEQUENCE: 
LIBSSCVT_CVTROUG_R1 ( octa.ro.r, gfloat.wg.r ) 
This is 8 JSB entry point. 


FORMAL PARAMETERS: 
RO -=> octa R1 ==> gfloat 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


Sete Ge Se Se Ge Ge Se Se Se Se Se Se Se Ge Se Ge Ge Ge He Se Ge Ge Se Ge Se Se 


: DEFINE SOME CONSTANTS 
GDUMMY: .BLKL ¢ 
~G_FLOATING 27281603.13668337 39758 950336; 2**96 
-G_FLOATING 18446744073709551616; 2**64 
G32: -G_FLOATING 4294967296; 2%*#32 
G_FLOATING 1; 
: FIND THE FLOATING ATOMIC DATA TYPE BY MULTIPLYING EACH LONGWORD 
; OF OCTAWORD BY AN APPROPRIATE CONSTANT. 
LIBSSCVT_CVTROUG_R1 :: 
PUSHR #*M<RO,R1,R2,R3,R4> 
CLRG (R1) sInitialize destination < 
MOVL #4, R2 :Set up the loop counter for 4 times 
10$: CVTLG (ROS, RB :Convert the next LONGWORD to floating 
BGTR 13$ :This longword is positive 
BEQL 15$ :1f zero, then just ty it 
ADDG G32, R3 sNegative, so add the difference 
13$: MULG GDUMMYCR2], R3 7Mu tiply the result by the constant 
ADDG R3, (R1) zAdd in the resuit to destination 
15$: DECB Re zOne less time to go around in the loop 
BEQL 208 Finished if counter is zero 
TSTL (RO)+ Next Longword of OCTA 
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60 3 E7 83 TSTL (90) ils it zero ? 
F6 E9 BEQL 15 Yes, so ignore it 
DD 11 o f o0s: BRB 10$ ;Loop to chomp some more on the OCTA 
1F BA OOED 37 "- POPR «= s #AM<RO,R1,R2,R3,R4> 
05 OOEF 7 RSB 
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p++ 
; FUNCTIONAL DESCRIPTION: 
Convert unsigned OCTAWORD to H_FLOATING rounded. 


NCE: 
TL_CVTROUH_R1 ( octa.ro.r, hfloat.wh.r ) 
JSB entry point. 


FORMAL PARAMETERS: 
RO ==> octa R1 ==> hfloat 


10.0 1000 0009000000900 09 0908 SINIININIY 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 


LIBSSCVT_CVTROUH_R1 :: 

OF 6B PUSHR  #*M<RO,R1,R2,R3> 
60 05 TSTL (RO) sI1f OU is zero, return zero. 
1A 12 BNEQ 5$ ere 

04 AO D5 TSTL 4(RO) dace 
+ ee BNEQ 5$ Sean 

08 AO D5 TSTL 8(RO) cies 
10 12 BNEQ 5$ eee 

Oc AO D5 TSTL 12(R0) 
0B 12 BNEQ 5$ caus 
81 D4 CLRL (R1)+ zReturn 0 in H. 
81 D4 CLRL (R1)+ Ra di 
81 D4 CLRL (R1)+ ee 
61 D4 CLRL (R1) Pawan 

0079 ==31 $$ BRW 50$ 3:Go to RSB back to caller. 

Ss iW SUBL2 #18, SP sMake room for nomalized OU. 
3; Move source to top of stack to normalize it 
E 7D MOVQ (RO), (SP) ;Put OU in here to be 
08 AE 08 AO 7D mova = 8(ROS, B(SP) ; worked on. 
10 AE B64 CLRW 16(SP5 sWe need this extra word for ADC. 


SOOCOCOOSOOCOSOSOSOSOSSOSOSCSOOOSOSOSOSOSOSOOSOSOSOOOOOOOOSOOOOOOOOOOOOOOOOOOO 
a dd dd ad = =I I QOHO OOO OOOO OOCOCOCOSOOOCOCOCOCOCSOSOOBOOCOCOCOOOCOOO 
Ft ee at et et et et ed dk kk ee eh, he eh Wek Wel We eh Neh We We Wh ahahaha hah ah ahah ad ahaha asad ah abtababasah as asiniiniin 


WIAPOPOPININPININPYNPNNYNY 9 9 OO MH QOOOOOOOOCOCOCOOOOOOONNO 
=DOO NAMES WN OS OO NAUE WIN OO ONAUES WN 0 OONAUE WN" OOONAUS WR OOONOM 
s 


Initialize some locations 


 ateaas 
1-00 


5 


28 

006 

OF AE 
F6 


1D 6— OE 

19 6E OF 

01 AE 80 8F 
0 

03 10 AE 


003A 


52 00000080 8F 
61 52 


01 Al 40 8F 
02 Al OE AE 
04 Al OC AE 
06 OA AE 
08 Al O8 A 
OA Al 6 AE 
OC Al 4 AE 
OE Al 2 AE 
20 
SE 12 
OF 


ow 
<c 


WN SO OONAOULS WN O OONAULSWN—OOONOU 
s 


Dowown 
SoOowaoo 
NOuw 


Ee Fae ae ae we [aw we ae we we wm ae we wm ww we ww wm lew aw lo ln lolololololololelelololelolelololelelelolealalelololelolol ooo wal] 
Doorn "yp Doo 


ee ee me em ee ee ek ed ed ed dd dd dd dt dd dd Sd td ot 


<©.00090909090009 69 0009 NI SINS 


Fo ot ot ot of at at aE MMMM MUMUMMUUAUUAUAUAAAAAHMMMMMHH MMe 


| ne ey te tt a RN RS Oe TA A ety tr etd Sake tak ake latte ee eI nad 


CONAUE WN $$ O OONOULS WN —OwO0 


SMOOOOM 


G 16 
ort for LIBSCVT_DX_DXx i om ae 9 $3: 20:06 AX/VMS Macro V04-00 Page 
OUH_R1 6-SEP-1984 11:04:44 (CLIBRTL.SRCIJLIBCVTMAC.MAR; 1 
CLRL Re 3R2 will contain number of shifts. 
CLRL RB ; Temporary. 
BICPSW #*x20 ;Turn off IV so we can ASHQ 
; This Loop will shift OU Left until MSB is a one. 
10s: 
DECL R2 ;Count number of shifts. 
BSBwW SHIFT_OU_LEFT sShift OU left one time. 
TSTB 15(SPY zIs MSB of normalized OU set ? 
: BGEQ 10$ No, loop again. 
: Round the OU if needed 
7 BBC #14, (SP), 30$ :If the bit beyond LSB of H clear no 
: rounding is needed. 
BBCS #15, (SP), 30$ sIf this bit is clear we just need 
ss to set it and it is rounded. 
BICB #*x80, 1(SP) :Painfully round this bit pattern. 
ADDL #1, 2(SP) aeccee 
ADWC #0, 6(SP) e@eeeese 
ADWC #0, 10(SP) ceaaee 
ADWC #0, 14(SP) Svames 
: Normalize this bit pattern 
BLBS 16(SP), 40$ sI1f this bit is on, it means that we 
: had an overflow on the Last 
: word, so it is already 
30s : normalized. 
" « BSBW = SHIFT_OU_LEFT :Normalize it. 


; Put what we have cooked up in the H destination 


dos: 
ADDL2 #128, R2 sexp = Length of OU (128) - #of shifts. 
MOVW R2, (R1) ;Put in exponent. 
BISB2 #*x40, 1(R1) sSet the excess bit. 
MOVW 14(SP5, 2(R1) :Put in the fraction. 
MOVW 12(SP), 4(R1) geecccce 
MOVW 10(SP), 6(R1) Sneéuda 
MOVW 8(SP), 8(R1) esacne 
MOVW 6(SP), 19 (Ry Side a 
MOVW 4(SP), 12¢R1) eae ice 
MOVW 2(SP), 14(R1) JF tcenan 
BISPSW #*x20 sTurn IV back on. 
ADDL2 #18, SP Restore SP 

50$: POPR #*M<RO,R1,R2,R3> 
RSB ;RSB back to caller. 


; Subroutine to shift OU one to the left 
SHIFT_OU_LEFT: 
CLRB 


R3 sInitialize R3 
TSTB 11(SP) zIs MSB of low quad set. 
BGEQ 10$ 3No. 


a 


L TERE VIRAL 


H 16 
port for LIBSCVT_DX_DXx 
OUH_R 


4 
4 
4 
4 
4 
4 
4 


0000000 

USWwrOn 
—_ 
Oo 
wn 


Brea 8Be FFi8ice HMTEHIS acne yon ee mans ame 


sYes, remember it. 


sShift +h quad one time. 
shift, h of quad one time. 
low oe was set then set 
1g," a hi gh 
sReturn co ma n cies: 


14 
(9) 


Macro V04-00 Page 


= ame MACR S Vv 
1-00 4 11:04:44 (CLIBRTL.SRCILIBCVTMAC.MAR; 1 


PO 
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<wW 
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I 16 
Pport for LIBSCVT_DX_Dx iF a SP 9 3:50:26 VAX/VM 
DQ_R1 6-SEP-19 


.SBTTL LIBSSCVT_CVTRDQ_R1 


ow 
<c 


p++ 
; FUNCTIONAL DESCRIPTION: 
Convert D_FLOATING to QUADWORD rounded. 


CALLING SEQUENCE: 
LIBSSCVT_CVTRDQ_R1 ( dfloat.rd.r, quad.wq.r ) 
This is a JSB entry point. 
FORMAL PARAMETERS: 
RO --> dfloat R1 --> QUADWORD 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


SOOOOSOOOOCOOSOSOSOSOSOSOSOSOOSOOSSSSOSOOOOCOCOOOCOOO OOOO OOOOOOO 
GOVT HDA DHDH SHH HH >>> >> yyy yyy y>yy>yyr>yr>yy>rrr>>r>r>rrr> 
\-5~)~)~Talelelel’') 

NINOS Ven S OH — “7 | \ 0909009 0969 09 Cd CO Cd G0 OD C0 GD CD CD CD G9 GD C9 C9 G9 G9 09 C9 0D CD C9 C0 C000 0D CD CD C0 0000 
PVPUPVW LV LVPUSUSUSUSVSUSUSVSVIVSIVUSUSUSISUSUSV SUSI VSUOSISUSIS ISSUES ISOS IOS OS IOSIOSIOSIOSIOST ES 
PEEPLES PWN WWIWIWIWIWINIDNININININININININ 3 3 SS POOOOOOOOOOONONO 
NAUE WN 9 ODNAUE WN SO OOD NAU EWN OO ONAOULS WHO CONAUS WR —OUOON 


00000007 D.OFF =7 ; Offset to exponent (double) 
LIBSSCVT_CVTRDQ_R1 :: 
OF 8B PUSHR “~#*M<RO,R1,R2,R3> ; Save these registers 
| ae CLRD (R1) ; Initialize result to zero 
= wo Ff MOVD (RO), R2 ; Grab source (reserved operand?) 
a 13 BEQL 0$ ; Branch if result is zero 
52. 1000 8F Ae SUBW2 #32aD_OFF, R2 : Scale down by 2**32 
Ai 52 68 CVTRDL * 4TR1 3; Store high-order longword of result 
52. 1000 BF Ad ADDW2  #32aD_OFF, R2 : Scale up by 2e*3 
7E 04 Al of CVTILD 4(R1)> =(8 : Convert Long back to double 
92 1 BEQL ios ; ship if zero 
6— 1000 8F AO ADDW #32a0_OFF, (SP) ; Scale up by 2*232 
52. 8 62 10S: SUBD (SP)+, R2 ; Subtract high-order lLongword 
61 5 68 CVTRDOL Re (R1) ; Convert rounded remainder to long 
03 «(18 BGEQ = 208 : Skip if positive 
04 Al 07 DECL 4(R1) ; Sign-extend low-order longword 
OF BA 208: + #*M<RO,R1,R2,R3> ; Restore these registers 


15 
10) 


1 16 
for LIBSCVT_DX_Dx i ~SEP-1984 3:50:26 VAX/VMS Macro v04-00 Pa 16 
Teer ees Tiida sce TENTS Bac se Lot OO mans om (if, 


PO 
<w 
pert) 


‘ 
ow 
<c 
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vo 
xo 
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COMPLETION CODES: 
NONE 


SIDE EFFECTS 
OPCODE * RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


LIBS$CVT CVTOH. R1:: 
cyIOn (RO), (RI) sConvert D_FLOATING to H_FLOATING 


i 23 ~SBTTL LIBSSCVT_CVTDH_R1 
1D af 504 
1D 26 3; FUNCTIONAL DESCRIPTION: 
108 223 3 Convert D_FLOATING to H_FLOATING. 
1D 54 ; 

01D +e 
D 2$ 3 CALLING SEQUENCE: 
D of 8 LIBSSCVT_CVTDH_R1 ( dfloat.rd.r, hfloat.wh.r ) 
D8 58 ; This is &@ JSB éntry point. 
D8 59 ; 

8 De 60 ; 
D 61 ; FORMAL PARAMETERS: 

0108 266 : RO --> dfloat R1 -=> hfloat 

0108 O> 3 

0108 564; 

0108 565 ; IMPLICIT INPUTS: 

01D8 566; NONE 

0108 567; 

0108 568; 

0108 569 ; IMPLICIT OUTPUTS: 

0108 570; NONE 

0108 571; 

0108 Le: : 

0108 573; 

0108 574; 

0108 575; 

0108 576; 

0108 577; 

01D8 578; 

0108 579; 

0108 580 

01D8 581 

01D8 AL 

01Dc 3=—ss«58 


— tt Ss — — — — 9 9) 9) SS SS YS SS Od YY YS YS YS SS 
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ort t for LIBSCVT_DX ox 15-SEP-1984 $ 93:30:06 wt yin Macro v04-00 


ot 
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6-SEP-1984 
-SBTTL LIBSS$CVT_CVTRHL_R1 


1:04 


: FUNCTIONAL DESCRIPTION: 
Convert H_FLOATING to LONGWORD rounded. 


; CALLING SEQUENCE: 
LIBSSCVT_CVTRHL_ R1 ( hfloat.rh.r, long.wl.r ) 
This is @ JSB entry point. 

; FORMAL PARAMETERS: 
RO ==> hfloat R1 ==> long 

IMPLICIT INPUTS: 
NONE 

; IMPLICIT OUTPUTS: 

NONE 


; ; COMPLETION CODES: 
NONE 


; ; SIDE EFFECTS: 


SOOOCCOCOCOOOSOSOSO DOOCOCOOOCOOOCOOCOOOOOOoOoOOoOOo 
MUOUVUIVUTVTVTVOVTVUVUVOVCVOVCOVOUVUVOCVUUOCOUOUUUUOUUCOUUUUUOUVUTCOCOSO -—-f 
“TUTTI TVTVTVTVTVTVTVTVTVCVCUVCTVTCVCOVTVUUTVUVVTVTVTUCVCVTCUVTUVTCNCSO | 
PARE AAAAAA AA AA AAA HAA MAA 
tt ot I IQ QOODOOCOCOOCOCOCOOCOOOOOOOOMWMM@O0M «rF 
ONAL WN 0 OONAU EWR 9 OONAUE WN" OVONOu 


61 


3 
& 


on 
Wo 


OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


Tassovt cvram. 


IBRTL.SRCILIBCVTMAC .MAR; 1 


“(RO), (R1) :Convert H_FLOATING to LONGWORD rounded 


LIBSCVTMAC MA 
1-005 Ll 


<wW 
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L 16 
or LIBSCVT_DX_DX 15-SEP-1984 43:20:66 yay VMS ae 


6-SEP-1984 04:44 Page 1 


cro V04-00 $ 
LIBRTL.SR CIL IBCVTMAC.MAR; 1 (13) 


oon 
PD 
RO 
aot 
ow 
<c 
oO 
zo 
o 
za 
a 


.SBTTL LIBSS$CVT_CVTRHQ_R1 


344 
; FUNCTIONAL DESCRIPTION: 
Convert H_FLOATING to QUADWORD rounded. 


VTRHQ Rl ( hfloat.rh.r, quad.wq.r ) 
B entry point. 


aoa 


PERERA AAA AAAAAA AA AAA A AAAS OO 


1E 
1E 
1E 
1E H 
1E ; 
1€ H 
1E ; 
1E ; 
O1E 3 
O1E : 
O1E : 
BIE ; 3 FORMAL PARAMETERS : 
1E 3 RO <=> hfloat R1 <=> quad 
O1E ; 3 
O1E 3 
O1E 35 ; IMPLICIT INPUTS: 
O1E 36 ; NONE 
ge of 3 
1E 38 ; 
O1E 39 ; IMPLICIT OUTPUTS: 
O1E 40 ; NONE 
O1E2 41 ; 
O1E2 42 ; 
Q1E2 43 ; COMPLETION CODES: 
He: 44 ; NONE 
O1E 45 ; 
pies 646 ; SIDE EFFECTS: 
O1E 647 ; 
OIE 648 ; 
O1E 649 ;-- 
O1E 650 LIBSSCVT_CVTRHQ_R1 : 
OF BB O1E2 651 PUSHR “HMcRO, R1,R2,R3> 3 Save these registers 
61 7C OQ1E4 636 CLRQ (R1) : Initialize result to zero 
53 D4 O1F6 65 CLRL R3 ; Initialize rounding bit 
Q1E8 654 ; : 
O1E8 655 ; Find the exponent 
O1E8 656; - a 
52 60 OF 00 EF OQ1E8 657 EX1ZV #0, #15, (RO), R2 ; Extract the exponent 
OD 13 OED 658 BEQL ; Call the number zero if expo. is zero 
52 00004000 8F (C2 ater 659 SUBL2 #*x4000, R2 ; Take out the excess 
04 19 O1F6 660 BLSS 5$ : If negative then Quad is zero 
05 14 O18 661 BGTR 10$_— ; Is exponent zero ? 
61 D6 OFA 006 INCL (R1) ; Yes, call it a one 
giee 663 5$: 
007D_ =—+31 Rice 088 BRW 50$ ; Go to the finish Line 
O1FF 666; Check for overflow. If exponent is 63, find rounding bit before we 
1FF 667 ; lose it. 
1FF 668 ; 
1FF 669 10S: 

52 3F C2 OFF 670 SUBL2 #63, R2 ; Bring *.* to right of bit 0 
1E 19 2 671 BLSS 208 : If exponent < 63, + ip this, 
OF 14 4 ore BGTR pe : If exponent >_6 

98 AO gi 1 EF 6 67 EXTZV 8(RO) S Exponent {8 63, A3 1s the round bit 
53 80000000 8F CA 674 SICL2 #"480000000- as” : Turn on the 31st bit of R3 t 
1 675 3 that the round bit has An ah doterdined 
0D 11 021 676 BRB 20$ 3 Cont. 
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PUSHL #S$S$_INTOVF 
CALLS #1, G*LIBSSIGNAL 


15-SEP-1984 23:50:26 VAX/VMS Ma 
aes ide 4 L. 


v04- 


acro V04-00 
744 (CLIBRTL.SRCILIBCVTMAC.MAR; 1 


: Signal IV 


Move the fraction to the QUAD, and put in a positive sign and MSB 


MOVW 8(RO), (R1) 
MOVW 6(RO), 2(R1) 
MOVW 4(RO), 4(R1) 
MOVW 2(RO), 6(R1) 
ASHQ #-2, (R1), (R1) 
8182 #exCo, 7(R1) 
BISB #*x40, 7(R1) 
Find rounding bit i 
TSTL R3 
BLSS 


30$ 
MNEGL R2, R3 
DEC 


EXTZV RS, #1, (RID, RZ 


Shift the QAUD R2 times 


ASHQ Re. (R1), (R1) 
R 


BEQL 40% 
MOVL  (R1), R2 

MOVAB 1(R25, (R1) 

ADWC 0 #0, 4(R1) 

TStw = (RO) 

BGTR 50$ 

MCOML (R11), (R1) 

MCOML 4(R15, 4(R1) 
OVL  (R1), RO 

MOVAB 1(ROS, (R1) 
ADWC 360s #0, 4 (R1) 

POPR #*M<RO,R1,R2,R3> 


gn 
; Make sure two he 


f not already 


; Move the fraction to QUAD 


; Make room for + : MSB 


an 
bits are off 
; Sign is ‘'+', MSB is 1 

done 

3 rounding bit already found ? 


; R3 will contain rounding bit 


; Look at the right of detinat point 


; This is the rounding bit 


Shift the QUAD R2 times 
- we need to round 

° 

Do the rounding 


is’ the H negative ? 
ts) 
Negate the QUAD 


Restore these registers 


~ 
=—iat 
Wo 
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“LIBSCVTMAC MA 
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CRO-32 s 
BS$CVT_C 
7F 
7F 
7F 
7F 
| 7F 
7F 
7F 
7F 
7F 
| O27F 
027F 
| O27 
| O57 
027F 
027F 
027F 
027F 
perr 
027F 
027F 
027F 
027F 
027F 
027F 
beer 
027F 
027F 
027F 
027F 
00000004 027F 
027F 
027F 
027F 
027F 
027F 
3F 60S sow beet 
61 7C 0281 
08 Al 7C 0283 
7E 60 Pore 0286 
43 13 O28A 
028C 
Bese 
51 10 CO 6 He 
54 51 dO 8 8F 
55 03 00 38 
029 
95 
95 
es 2: 3 95 
Se: 99 
$f 52 A 9C 
1 3 6BF D oF 
ge AO A3 
E 61 oer A6 
1¢ 1 AA 


buntinineniniensdinn 


a 


DPDAREDPEDED Sass & BS BS BS BE EAA AI inononononononoronon) — XO 
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8 
for LIBSCVT_DX_Dx S=SEB-1984 23:50:26 VAX/VMS Macro 04-00 
1 6-SEP=1984 11:04:44 CLIBRTL.SRCJ 
.SBTTL LIBSSCVT_CVTRHO_R1 


; FUNCTIONAL DESCRIPTION: 


; : COMP ENONE CODES: 


; ; SIDE EFFECTS: 
oPc 


; Convert H_FLOATING to OCTAWORD rounded. 
: CALLING SEQUENCE: 

3 LIBS$CVT_CVTRHO_ Ri ( hfloat.rh.r, octa.wo.r ) 
3 This is & JSB entry point. 

: FORMAL PARAMETERS: 

3 RO --> hfloat R1 -=> octa 

: IMPLICIT INPUTS: 

3 NONE 

: IMPLICIT OUTPUTS: 

: NONE 

0 


LEN @ & 
LIBSSCVT_CVTRHO_R1 :: 
> Initialization 


; Length in longwords (octaword) 


PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save these registers 

CLRQ (R1) : Initialize result to zero 

CLRQ 8(R1) ; Initialize result to zero 

MOVH (RO), =(SP) 3; Grab source (reserved operand?) 
BEQL 30$ ; Branch if result is zero 


: The source is not zero; initialize other registers 


ADDL2 #O_LEN®4, R1 ; Address past octaword 
MOVL R1, R4 Save this address 


0 
LIBCVTMAC .MAR; 1 


CT 
ODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


rae it, 


MOVL  #O.LEN-1, R5 : Loop counter 
10$: : Loop for each longword of destination 
ASHL a5, R5, R2 : Scaling amount (2**5 = 
MOVL 3; Address where we eygrt, Sr sieaditins 
SUBW2 3; Scale down by 2**(32 
CVTRHL Res, ( sPtRT) ; Store Bignoor der, aon word of result 
ADDW2 3 : Scale up by 2**(3 
CVTLH (RI), =(SP) ; Convert long ecake to double 
BEQL 208 ; Skip if zero 


—— a a 
- — 


Ss 
LIBSCVTMAC MACRO-22 support for LIBSCVT_DX_DX 15-SEP-1984 23:50:26 VAX/VMS Macro v04-00 Page 21 
1 1855 LIBSSCVT_CVIRHO.R yey: pi SE 138 #30328 EOTORTL. SRETCIOCVTMAC.MARS 1 . (day 
10 11 ~" ahs BRB 13% ; Jump into decrement loop 
rt 13 ; If the lLongword was negative, we must sign-extend the result 
80000000 8F 63 D1 OCAE 781 118 CMPL = (R3),, #*X80000000 ; Compare with largest negative number 
o if 5 7 ¢ BNEQ 12$ : If not equal, do a simple decrement 
83 6 D 8 7 MCOML (R3), (R3)+ ; Subtract one and consider negative 
046 11 BA 784 BRB 14$ ; Stay in Loop as result is negative 
83 D7 O2BC 785 128: DECL  (R3)+ : Decrement thi 
0 18 0268 7 § 13$: BGEQ 15$ 3; Jump out of | 
54 53 D1 O2C 787 14$: CMPL R3, R4 ; See if we are done decrementing 
E9 ~=O«F 8 : f 3 BLSSu 118 i; If not past octaword, keep going 
8 3 a : Scale up the Longword (if not zero), and subtract from stack temp 
6E 52 ad 02C5 19¢ 153:  ADDW2 R2, (SP) ; Scale up by 2**(32#n) 
6— BE 62FD 0 C8 193 20$:  SUBH2 (SP)+, (SP) : Subtract high-order longword 
8 es oe? > Decrease loop counter, and continue, if more longwords required 
(655 FG 0 c¢ 19 SoBGEQ RS, 108 : Continue Looping 
8 os 43 30$: : Clean up the stack, and restore registers 
BE 7CFD O2CF 801 CLRH = (SP) + ; Pop huge from the stack 
F OBA psd¢ 8 POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore these registers 
05 OSpe a87 RSB ; Return from subroutine 


| 
s longword 
oop if positive 


——--- 
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P-19 44 (CLIBRTL.SRCILI 


.SBTTL LIBSSCVT_CVTHF_R1 


rz 
—> 
te Pe) 
Pw 
PO 
ot 
ow 
<c 
0 
xo 
"oO 
3 
wee 
— 


; | COMPLETION CODES: 


; SIDE EFFECTS: 
OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


p++ D 
: FUNCTIONAL DESCRIPTION: 

; Convert H_FLOATING to FLOATING 4 
G 
; CALLING SEQUENCE: L] 
; LIBSSCVT_CVTHF_R1 (hfloat.rh.r, float.wf.r ) 

; This is @ JSB entry point. 

FORMAL PARAMETERS: 

; RO ==> hfloat R1 ==> float 

IMPLICIT INPUTS: 

; NONE 

; IMPLICIT OUTPUTS: 

; NONE 

i; 


(RO), (R1) Convert H_FLOATING to FLOAT 


POPQPIPIPONININYPINIPYNIMIPNINIPIPINIPYPIPIPIPYIPYIPIPIPIPINIPOPIPINPINY ss < 


COOOCOCOCOCOCOCOCOCOCOCOOOOOOOOCOOOOOOOOOOOOoOO 
VSVVVIVTVTVVTVTVC9VCVCVCCCCCTCC"U"0C000"C0"0"00"00"00 —-f%r 
QDPDVDV DV IV PVPS SUSUSUSUSUSVSUSUSIUSUSIS USES ISIS 
WWINNAI AAI AIWIGIDIPINPINPOPYNIPYNINIDY 2 PP OO OO OS MP OOOO 
WDONAUE WN OS OONAUE WN 0 OONOAUE WIN CO COnIO 


0 09 OD OD Cd Cd Cd Od Cd Cd OD CD Cd C9 OD CD Cd CD CD C9 CO C9. 00 CD OD CD CD GD CD CD CD CD0D0D 


YYVOrfr rr rer errr rercrccccccec cece 
Pt es a et es a ee et Ht et et Ht et Ht et et Hl et lt Ht Ret et He be Ee |] 


1BSSCVT CVTHF Ris: 
RSB 


- 


a a a 


seein eae ANOS EAE CaN be 
x = sia 


IBSCVTMAC MACRO=-32 support for LIBSCVT_DX_Dx 15-SEP-1984 23:50:26 VAX/VMS Macro V04- Page 23 
180s Piesscvt cvTRD RI Seo 6-SEP=1984 FF ideits PMTBRIL. SREILIBCVTMAC.MARS 1 ° (fa) 
+ r -SBITL LIBSSCVT_CVTHD_R1 
DA 843 ;++ 
| DA 44 ; FUNCTIONAL DESCRIPTION: 
+ i : Convert H_FLOATING to D_FLOATING 
DA 13 3 
DA 48 ; CALLING SEQUENCE: 
DA 49 ; LIBSSCVT_CVTHD_R1 ( hfloat.rh.r, dfloat.wd.r ) 
DA 50 ; This is a JSB entry point. 
DA S51; 
8 DA 26 3 
DA 55 ; FORMAL PARAMETERS: 
O2DA 54 ; RO --> hfloat R11 <--> dfloat 
O2DA 33 3 
O2DA 528 3 
O2DA 57 ; IMPLICIT INPUTS: 
O2DA 858 ; NONE 
QO2DA 859; 
O2DA 60 ; 
acon 61 ; IMPLICIT OUTPUTS: 
O2DA o¢ 3 NONE 
| O2DA 86 3 
aioe 64 ; 
8 DA 865 ; COMPLETION CODES: 
DA 508 3 NONE 
O2DA 67 ; 
O2DA B08 ; SIDE EFFECTS: 
aga +4 3 OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
O5bA gre i-- 
O2DA ar¢ LIBSSCVT_CVTHD_R1 :: 
61 60 F7FD O2DA 7 CVTHD (RO), (R1) :Convert H_FLOATING to D_FLOATING 
05 O2DE 874 RSB 
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.SBTTL LIBSSCVT_CVTHG_R1 


“FUNCTIONAL DESCR 


PTION 
onvert H_FLO 


I 
H_ FLOAT ING to G_FLOATING 


CALLING SEQUENCE: 
LIBSSCVT_CVTHG_R1 ( hfloat.rh.r, gfloat.wg.r ) 
This is a JSB entry point. 
FORMAL PARAMETERS: 
RO ==> hfloat R1 -=> gfloat 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


LIBS$S$CVT oyiye.. Ri :: 
EVIHG (RO), (R1) Convert H_FLOATING to G_FLOATING 


6 1 
L IBSEVTRAC att te puepert for LIBSCVT_DX_DXx i oj tb 4 Sit 32: 26 AX/VMS Macro v04-00 
1-00 LIBSSCVT_CVTGH_R1 6-SEP-1984 LIBRTL.SRCJLIBCVTMAC.MAR; 1 
£4 ae .SBTTL LIBSS$CVT_CVTGH_R1 
at AIS ss 
E4 914 : FUNCTIONAL DESCRIPTION: 
E4 312 3 Convert G_FLOATING to H_FLOATING 
ae ae 
E4 318 + CALLING SEQUENCE: 
E4 19 ; LIBSSCVT_CVTGH_R1 ( gfloat.rg.r, hfloat.wh.r ) 
E4 0; This is & JSB éntry point. 
ue 
E4 3 : : FORMAL PARAMETERS: 
EG 924; RO ==> gfloat R1 ==> hfloat 
ne 
0 E49 $ : IMPLICIT INPUTS: 
ES 928; NONE 
S5Et 885 : 
0 E4 931 : IMPLICIT OUTPUTS: 
£4 93¢ : NONE 
O5e4 98: 
0 E4 935 + COMPLETION CODES: 
O54 939 | — 
O2E4 938 : SIDE EFFECTS: 
02E4 939; OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
Bt 0 
024 4g LIBS$CVT CVTGH. R1:: 
61 60 S6FD 0264 94 TVTGH ~ (RO), (R1) ;Convert G_FLOATING TO H_FLOATING 
05 0268 944 
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” SBTTL LIBSSCVT_SCALE_OU_UP_B 1 


FUNCTIONAL DESCRIPTION: 
Scale an unsigned OCTAWORD up by 10. 


; CALLING SEQUENCE: 
LIBSSCVT_SCALE_OU_UP_BY_10_R1 ( octa.mo.r ) 
This is a JSB entry point. 
; FORMAL Spainng 
RO ==> octa 
; IMPLICIT INPUTS: 
: NONE 
; IMPLICIT OUTPUTS: 
: NONE 


; ; COMPLETION CODES: 
NONE 


; SIDE EFFECTS: 
NONE 
LIBSSCVT, SCALE, OU_UP_BY_1 


SHR gL nchd. fe 08! R3, R4> 
OVL 4, :; Do four Longwords 
CLRL R3 3; Clear the ‘carry 
10$: EMUL #10, (RO), R3, R1 ; Multiply low-order Longwords 
BGEQ 208 :; Make sure low-order longword 
ADDL2 #10, R2 : is seen as unsigned 
208: MOVL R1, (RO)+ ; Store low longword 
MOVL R2, R3 ; Save the ‘carry' 
SOBGTR R4, 10$ 3; Continue Loopin 
TSTL R3 3; Check for overflow 
BEQL 30$ 3; Branch if no overflow 
MOVL #SS$_INTOVF, -(SP) : Integer overflow 
CALLS #1, GLIBSSIGNAL ; Signal the error 
30$ POPR #*M<RO,R1,R2,R3,R4> 
RSB ; Return 
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-00 LIBSSCVT_SCALE_OU_DOWN_BY_10-R1 6-SEP=1984 11:04:44 IBRTL.SRCJLIBCVTMAC.MAR; 1 (20) 
1 44 -SBTTL LIBSSCVT_SCALE_OU_DOWN_BY_10_R1 
18 999 :4 
1 $38 3; FUNCTIONAL DESCRIPTION: 
! ; 8 3 Scales down an OCTAWORD by 10. 
18 1001 : 
18 1 3 ; CALLING SEQUENCE: 
3 fi _OU_ 10. octa.mo.r 
1 1 LIBSS$CVT_SCALE_OU_DOWN_BY_10_R1 ( ) 
} } Be : This is @ JSB éntry point. 
18 1006 : 
: L A H 
1 1 88 FORMAL PARAMETERS 
0 : ! 88 3 RO ==> octa 
18 1010: 
0 \3 1011 ; IMPLICIT INPUTS: 
O38 1018 se 
O38 1014 : 
031 1015 ; IMPLICIT OUTPUTS: 
gue gig: Fo 
0318 1018 ; 
SHE Esp: comueyigy cones 
0318 1021 ; 
0318 8 § 3; SIDE EFFECTS: 
O318 1058 ; “es 
0318 1025 :-- 
8 10 § LIBSSCVT_SCALE_OU_DOWN_BY_10_R1:: 
1F 8B 1 10 PUSHR ~ #™M<RO7R1-R2,R3,R4> 
54 03 00 1A 1028 #3, R4 ; Do four longwords 
52 4 1D 1029 CLRL R2 ; Clear high longword of quad 
51. 6044 00 1F 1030 10$: MOVL (RO)CR4], R1 ; Grab low longword of quad 
52 6044 51 OA 7B 0323 1931 EDIV #10, R1, (RO)CR4], R2 : Do a divide 
52 05 od1 0329 1 § 30$: CMPL #5, R2 : See if remainder too large 
D 1A 032¢ 19 BGTRU 50$ : for the next EDIV 
8 15 ; 1034 LEQ 40$ : Simply make remainder smaller 
S2.6CUGACtC‘GSD 1035 ADDL2 #10, R2 3; Make remainder positive 
6044 D7 ; 10 6 DECL  (ROSCR4] : Make quotient smaller 
F1 11 0336 10 BRB 30$ ; Join the Looping code 
52 A Ce 8 1938 $08 SUBL2 #10, Re ; Make remainder smailer 
£154 F 1 50$ SOBGEQ R4, 10 ; Continue looping 
BA f 1040 POP #*M<RO,R1,R2,R3,R4> 
05 4 19e) RSB 3; Return 
0341 1042 
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.SBTTL LIBSSCVT_MULD2_R1 


ULD2 ~ (RO), (R1) 


RO ==> mulr 
RSB 


; FUNCTIONAL DESCRIPTION: 
NONE 


S 

B 

i 
; FORMAL PARAMETERS: 
; IMPLICIT INPUTS: 
; NONE 
; IMPLICIT OUTPUTS: 
; NONE 
; COMPLETION CODES: 
; NONE 
; SIDE EFFECTS: 
JOSSCVT MU Re R1_:: 
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.SBTTL LIBSSCVT_MULH2_R1 


hg 
; FUNCTIONAL DESCRIPTION: 
multiply two H_FLOATING floating values. 


CALLING SEQUENCE: 
LIBSSCVT_MULH2_R1 ( mulr.rh.r, prod.mh.r ) 
This is a JSB entry point. 

FORMAL PARAMETERS: 
RO ==> mulr R1 ==> prod 

; IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 


; COMPLETION CODES: 
NONE 


; SIDE EFFECTS: 
OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
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IBSSCVT_MULH2_R1 :: 
AUL He (RO), (R1) Multiply two H FLOATING 
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-SBTTL LIBSSCVT_DIVH2_R1 


++ 
acetal yo DESCRIPTION: 
Divide two H_FLOATING floating values. 
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4— 11 
cE 11 
4—E 1152; 
rt 1155 ; 
4E 1154; 
4—E 1155; 
4—€ 11 $ ; 
4E 1157 ; CALLING SEQUENCE: 
4— 11 8 3 biGSSGVT OL VH2 Ri ( divr.rh.r, quo.mh.r ) 
4— 1159; This is a JSB entry point. 
4E 1160; 
4E 1161 ; 
4E 1162 ; FORMAL PARAMETERS: 
4— 11 3 RO --> divr R1 ==> quo 
4E 1164 ; 
4E 1165 ; 
4E 1198 ; IMPLICIT INPUTS: 
4E 1167 ; NONE 
4E 1168; 
034E 1193 3 
O34E 1170 ; IMPLICIT OUTPUTS: 
QO34E 1171 ; NONE 
Bace 11% H 
$cc 1173 ; 
O34E 1174 ; COMPLETION CODES: 
Bate 1175 ; NONE 
34E 1176; 
Bate Wer ; SIDE EFFECTS: 
Bete at 3 OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
O34e 1181 so 
O34E 11 § LIBSSCVT_DIVH2_R1 :: 
61 60 66FD bae5 By BivH2 ~ (RO), (R1) :Divide two H_FLOATING 
05 0352 1184 RSB 
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.SBTTL LIBSSCVT_ASHP_R1 


p++ 
3; FUNCTIONAL DESCRIPTION: 
Scale a packed decimal number. 


CALLING SEQUENCE: 
LIBSSCVT_ASHP_R1 (cnt.rw.r, srclen.rw.r, srcaddr.ra.r, 
round.rb.r, dstlen.rw.r, dstaddr.ra.r ) 
This is a JSB entry point. 


FORMAL peggy 
RO - nt 
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11 
118 
1189 
1190 ; 
1191 ; 
1136 3 
1195 ; 
1194 ; 
1195 ; 
1138 3 
1197 ; 
1198 ; 
3 1199 ; 
3 1200 ; R1 = srclen R2 ==> srcaddr R3 = round 
; } 4 g R4 oa detlen R5 = dstaddr 
1 $8 3 
3 1204 ; IMPLICIT INPUTS: 
3 1205 ; NONE 
03 1206 ; 
03 1207 ; 
03 1208 ; IMPLICIT OUTPUTS: 
03 1209 ; NONE 
03 1210 ; 
03 1211 ; 
03 1316 3; COMPLETION CODES: 
03 1213 ; NONE 
03 1214 ; 
03 1215 ; 
03 1216 ; 
03 1217 ; 
03 1218 ;-- 
03 1219 LIBSSCVT_ASHP_R1 :: 
3F 06=— BBS SCé«O3 1 $9 PUSHR™ . W<RO» 4 Re, cR3 R4,R5> 
65 64 63 62 61 60 F8 0355 1221 ASHP —_ (RO) (RE (R3), (RO), (RS) 
3F 6 BA C085 1 32 POPR = #* ako, Ri bt R3,R4,R5> 
05 03 1 $B 


SIDE EFFECTS: 
NONE 
| 
| 
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itt LIBSSCVT_CMPROR aie raat 7 #7 deste ECTRTL. SREILIBCVTMAC. MARS 1 ° ay 
F ! 5 ~SBTTL LIBSSCVT_CMPH_R1 
f 1 5 34+ "se 
a 8 ; FUNCTIONAL DESCRIPTION: 
ef } 3 ; Compare two H floating values 
SF 1231 : 
SF 4 § 3 CALLING SEQUENCE: 
eA 3 STATUS = LIBSSCVT_CMPH_R1 ( srci.rh.r, src2.rh.r ) 
8 ef } : : This is a JSB entry point. 
SF 1236 : 
O33 1 ‘ 3 FORMAL PARAMETERS: 
teh : $ : RO ==> srcl R1 ==> src2 
35F 1240 : 
beet 1241 ; IMPLICIT INPUTS: 
S3ar 1508 | ses 
O35F 1244 : 
O35F 1245 ; IMPLICIT OUTPUTS: 
OReE 1509 | =_— 
O35F 1248 : 
O35F 1$63 ; COMPLETION CODES: 
O35F 1250; RO = -1 if srcl < src2 
O35F 1251; RO = 0 if srcl = src 
baer : 26 $ RO = 1 if srci > src 
O35F 1254 : SIDE EFFECTS: 
Baer 1356 : OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
O35F 1257 :-- 
035F 1258 LIBSSCVT_CMPH_R1 :: 
Soe AS 0805 1500 | oe 
07 19 0365 1261 BLSS 20$ 
50 O01 CE O37 1 6¢ MNEGL #1, RO zsrcl > src2 
05 8 = ! o 108 RSB :Finished 
50 D4 b368 ib ra. aos :They are equal 
Q5 Me ' $6 208 RSB Finished 
50 FFFFFFFF 8F D 126 "  MOVL = #1, RO rsrcl < src2” 
Be § $f 1368 RSB Finished 
0376 1270 
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0376 1272 .END 
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08000000 ( 9-} NOPIC USR CON ABS LCL 
4 St HA ; “t: } oF PIC USR CON REL LCL 
NOPIC USR CON ABS LCL 


err e reeset ee ecewr eon neesee $ 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC LONG 
NOSHR EXE RD WRT NOVEC BYTE 
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Symbol table output :00:00.04 :00:00.04 
Psect synopsis output :00:00.01 :00:00.01 
Cross-reference output :00:00. :00:00. 8 
Assembler run totals 59 :00:06.1 :00:47.4 


The working set Limit was 1900 pages. 

34798 bytes (68 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 441 non-local and 44 local symbols. 
1272 source Lines were read in Pass 1, producing 12 object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 
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! Macro Library statistics ! 
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Macro Library name Macros defined 
_$255$DUA28: [SYSLIBISTARLET.MLB; 2 TORRE et 
469 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBCVTMAC/OBJ=OBJ$:LIBCVTMAC MSRC$:LIBCVTMAC/UPDATE=(ENH$:LIBCVTMAC) 
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